200
How can I align the column to the right
With AxG2antt1
	.Columns.Add("Column").Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
	.Items.AddItem(0)
	.Items.AddItem(1)
End With
199
How do I change the column's caption
With AxG2antt1
	.Columns.Add("Column").Caption = "new caption"
End With
198
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
With AxG2antt1
	.set_FormatAnchor(False,"<b><u><fgcolor=880000> </fgcolor></u></b>")
	.Columns.Add("Column")
	With .Items
		.CellValueFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
	With .Items
		.CellValueFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
	.Items.AddItem("next item")
End With
197
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
With AxG2antt1
	.set_FormatAnchor(True,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
	.Columns.Add("Column")
	With .Items
		.CellValueFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
	With .Items
		.CellValueFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
End With
196
Can I change the font for the tooltip
With AxG2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"
End With
195
Can I change the font for the tooltip
With AxG2antt1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
194
Can I change the order of the buttons in the scroll bar
With AxG2antt1
	.set_ScrollOrderParts(EXG2ANTTLib.ScrollBarEnum.exHScroll,"t,l,r")
	.set_ScrollOrderParts(EXG2ANTTLib.ScrollBarEnum.exVScroll,"t,l,r")
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
End With
193
The thumb size seems to be very small. Can I make it bigger
With AxG2antt1
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
	.set_ScrollThumbSize(EXG2ANTTLib.ScrollBarEnum.exHScroll,64)
End With
192
How can I display my text on the scroll bar, using a different font
With AxG2antt1
	.set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exThumbPart,"This is <s><font Tahoma;12> just </font></s> text")
	.ColumnAutoResize = False
	.ScrollHeight = 20
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
191
How can I display my text on the scroll bar, using a different font
With AxG2antt1
	.set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exThumbPart,"This is just a text")
	.get_ScrollFont(EXG2ANTTLib.ScrollBarEnum.exHScroll).Size = 12
	.ColumnAutoResize = False
	.ScrollHeight = 20
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
190
How can I display my text on the scroll bar
With AxG2antt1
	.set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exThumbPart,"this is just a text")
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
189
How do I enlarge or change the size of the control's scrollbars
With AxG2antt1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
End With
188
How do I assign a tooltip to a scrollbar
With AxG2antt1
	.set_ScrollToolTip(EXG2ANTTLib.ScrollBarEnum.exHScroll,"This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar")
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
187
How do I assign an icon to the button in the scrollbar
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exLeftB1Part,"<img>1</img>")
	.ScrollHeight = 18
	.ScrollButtonWidth = 18
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableNoHorizontal
End With
186
I need to add a button in the scroll bar. Is this possible
With AxG2antt1
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exLeftB1Part,"1")
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableNoHorizontal
End With
185
Can I display an additional buttons in the scroll bar
With AxG2antt1
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exLeftB2Part,True)
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exRightB6Part,True)
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exRightB5Part,True)
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableNoHorizontal
End With
184
Can I display the picture aligned to the right, while the text aligned to the left
Dim s
With AxG2antt1
	.DefaultItemHeight = 48
	.Columns.Add("C1")
	With .Items
		s = .SplitCell(.AddItem("Text"),0)
		.CellPicture(Nothing,s) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.CellHAlignment(Nothing,s) = EXG2ANTTLib.AlignmentEnum.RightAlignment
	End With
End With
183
How can I display a custom size picture to a cell or item
With AxG2antt1
	.DefaultItemHeight = 48
	.Columns.Add("C1")
	With .Items
		.CellPicture(.AddItem("Text"),0) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End With
182
How can I display a multiple pictures to a cell or item
With AxG2antt1
	.DefaultItemHeight = 48
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	.Columns.Add("C1")
	With .Items
		.CellValueFormat(.AddItem("<img>pic1</img> Text <img>pic2</img> another text ..."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
End With
181
How do I change the column's foreground color for numbers between an interval - Range
With AxG2antt1
	With .ConditionalFormats.Add("dbl(%0) >= 2 and dbl(%0) <= 10")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.Columns.Add("N1")
	.Columns.Add("N2")
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 3
	End With
	With .Items
		.CellValue(.AddItem(10),1) = 11
	End With
	With .Items
		.CellValue(.AddItem(13),1) = 31
	End With
	.SearchColumnIndex = 1
End With
180
How do I change the item's foreground color for numbers between an interval - Range
With AxG2antt1
	.ConditionalFormats.Add("dbl(%0) >= 2 and dbl(%0) <= 10").ForeColor = RGB(255,0,0)
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
179
How do I change the item's background color for numbers less than a value
With AxG2antt1
	.ConditionalFormats.Add("dbl(%0) < 10").BackColor = RGB(255,0,0)
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
178
How do I underline the numbers greater than a value
With AxG2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").Underline = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
177
How do I highlight in italic the numbers greater than a value
With AxG2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").StrikeOut = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
176
How do I highlight in italic the numbers greater than a value
With AxG2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").Italic = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
175
How do I highlight in bold the numbers greater than a value
With AxG2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").Bold = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
174
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons

Dim h
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = EXG2ANTTLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
End With
173
Can I use your EBN files to change the visual appearance for radio buttons

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_RadioImage(False,16777216)
	.set_RadioImage(True,33554432)
	.Columns.Add("Radio").Def(EXG2ANTTLib.DefColumnEnum.exCellHasRadioButton) = True
	With .Items
		.AddItem("Radio 1")
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem("Radio 3")
	End With
End With
172
Can I use your EBN files to change the visual appearance for checkbox cells

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Checked,33554432)
	.Columns.Add("Check").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	With .Items
		.AddItem("Check 1")
		.CellState(.AddItem("Check 2"),0) = 1
	End With
End With
171
How do I change the visual aspect for thumb parts in the scroll bars, using EBN
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	End With
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumb,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumbP,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumbH,50331648)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSThumb,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSThumbP,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSThumbH,50331648)
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exHScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVScrollOnThumbRelease Or EXG2ANTTLib.ScrollBarsEnum.exHScrollOnThumbRelease Or EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
	.ScrollBySingleLine = True
	.Columns.Add("Def")
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
	.EndUpdate()
End With
170
How do I change the visual aspect only for the thumb in the scroll bar, using EBN
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
		.Add(3,"c:\exontrol\images\hot.ebn")
	End With
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumb,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumbP,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumbH,50331648)
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exHScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVScrollOnThumbRelease Or EXG2ANTTLib.ScrollBarsEnum.exHScrollOnThumbRelease Or EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
	.ScrollBySingleLine = True
	.Columns.Add("Def")
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
	.EndUpdate()
End With
169
I've seen that you can change the visual appearance for the scroll bar. How can I do that

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSBtn,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSBtnP,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSBtnH,50331648)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSBack,15790320)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exScrollSizeGrip,15790320)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
	.ColumnAutoResize = False
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
End With
168
Is there any option to highligth the column from the cursor - point

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,16777216)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With
167
How do I change the visual aspect of selected item in the drop down filter window, using your EBN technology

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelBackColorFilter,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelForeColorFilter,1316095)
	.Columns.Add("Filter").DisplayFilterButton = True
End With
166
How do I change the visual aspect of the drop down calendar window, that shows up if I click the drop down filter button, using EBN

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateHeader,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTodayUp,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTodayDown,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateScrollThumb,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateScrollRange,15132390)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateSeparatorBar,15132390)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateSelect,16777216)
	With .Columns.Add("Date")
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exDate
		.DisplayFilterButton = True
		.DisplayFilterDate = True
	End With
End With
165
How do I change the visual aspect of the close button in the filter bar, using EBN

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,16777216)
	.Columns.Add("Filter").FilterType = EXG2ANTTLib.FilterTypeEnum.exBlanks
	.ApplyFilter()
End With
164
How do I change the visual aspect of buttons in the cell, using EBN

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCellButtonUp,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCellButtonDown,33554432)
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	.Columns.Add("Column 1").Def(EXG2ANTTLib.DefColumnEnum.exCellHasButton) = True
	.Items.AddItem("Button 1")
	.Items.AddItem("Button 2")
	.Columns.Add("Column 2")
End With
163
How do I change the visual aspect of the drop down filter button, using EBN

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.Columns.Add("Filter").DisplayFilterButton = True
End With
162
How do I enable resizing the columns at runtime
With AxG2antt1
	.ColumnsAllowSizing = True
	.MarkSearchColumn = False
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderHidden
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	With .Items
		.CellValue(.AddItem("Item 1"),1) = "Sub Item 1"
	End With
	With .Items
		.CellValue(.AddItem("Item 2"),1) = "Sub Item 2"
	End With
End With
161
How can I select the second inner column when spliting the cells
With AxG2antt1
	.SelectColumnInner = 1
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("Column")
	With .Items
		.CellValue(Nothing,.SplitCell(.AddItem("Split Cell 1.1"),0)) = "Split Cell 2.1"
		.CellValue(Nothing,.SplitCell(.AddItem("Split Cell 1.2"),0)) = "Split Cell 2.2"
		.SelectItem(.FirstVisibleItem) = True
	End With
End With
160
How can I sort by multiple columns

With AxG2antt1
	.SingleSort = False
	.Columns.Add("C1").SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.Columns.Add("C2").SortOrder = EXG2ANTTLib.SortOrderEnum.SortDescending
	.Columns.Add("C3").SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
End With
159
How can I add several columns to control's sort bar
With AxG2antt1
	.SortBarVisible = True
	.SortBarColumnWidth = 48
	.Columns.Add("C1").SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.Columns.Add("C2").SortOrder = EXG2ANTTLib.SortOrderEnum.SortDescending
End With
158
How can I change the width of the columns being displayed in the sort bar
With AxG2antt1
	.SortBarVisible = True
	.SortBarColumnWidth = 48
	.Columns.Add("C1").SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.Columns.Add("C2").SortOrder = EXG2ANTTLib.SortOrderEnum.SortDescending
End With
157
How can I change the height of the sort bar's
With AxG2antt1
	.SortBarVisible = True
	.SortBarHeight = 48
End With
156
How can I change the sort bar's foreground color
With AxG2antt1
	.SortBarVisible = True
	.ForeColorSortBar = RGB(255,0,0)
End With
155
How can I change the visual appearance of the control's sort bar, using EBN files

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.SortBarVisible = True
	.GetOcx().BackColorSortBar = &H1000000
	.GetOcx().BackColorSortBarCaption = &H2000000
	.Appearance = EXG2ANTTLib.AppearanceEnum.None2
End With
154
How can I change the sort bar's background color
With AxG2antt1
	.SortBarVisible = True
	.BackColorSortBar = RGB(255,0,0)
	.BackColorSortBarCaption = RGB(128,0,0)
End With
153
How can I change the default caption being displayed in the control's sort bar
With AxG2antt1
	.SortBarVisible = True
	.SortBarCaption = "new caption"
End With
152
How can I show the locked / fixed items on the bottom side of the control
With AxG2antt1
	.ShowLockedItems = True
	.Columns.Add("Column")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exMiddle) = 2
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exMiddle,0),0) = "locked item 1"
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exMiddle,1),0) = "locked item 2"
		.AddItem("un-locked item")
	End With
End With
151
How can I show the locked / fixed items
With AxG2antt1
	.ShowLockedItems = True
	.Columns.Add("Column")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 2
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0),0) = "locked item 1"
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,1),0) = "locked item 2"
		.AddItem("un-locked item")
	End With
End With
150
How can I hide the locked / fixed items
With AxG2antt1
	.ShowLockedItems = False
	.Columns.Add("Column")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0),0) = "locked item"
		.AddItem("un-locked item")
	End With
End With
149
How can I show the control's sort bar
With AxG2antt1
	.SortBarVisible = True
End With
148
How can I stretch a picture on the control's header, when multiple levels are displayed, so it is not tiled
With AxG2antt1
	.PictureLevelHeader = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.PictureDisplayLevelHeader = EXG2ANTTLib.PictureDisplayEnum.Stretch
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With
147
How can I display a picture on the control's header, when multiple levels are displayed, so it is not tiled
With AxG2antt1
	.PictureLevelHeader = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.PictureDisplayLevelHeader = EXG2ANTTLib.PictureDisplayEnum.MiddleRight
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E").Width = 32
End With
146
How can I display a picture on the control's header, when multiple levels are displayed

With AxG2antt1
	.PictureLevelHeader = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
End With
145
How can I change the header's background color, when multiple levels are displayed
With AxG2antt1
	.BackColorLevelHeader = RGB(250,0,0)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
End With
144
Can I programmatically scroll the control
With AxG2antt1
	.Columns.Add("Column")
	.Items.AddItem(0)
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(3)
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.set_ScrollPos(True,1)
End With
143
How do I disable expanding or collapsing an item when user presses the arrow keys
Dim h
With AxG2antt1
	.ExpandOnKeys = False
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Column 1")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
End With
142
How do I expand automatically the items while user types characters to searching for something ( incremental searching )
With AxG2antt1
	.ExpandOnSearch = True
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.AutoSearch = True
	.Columns.Add("Column").AutoSearch = EXG2ANTTLib.AutoSearchEnum.exContains
	With .Items
		.InsertItem(.InsertItem(.AddItem("text"),Nothing,"some text"),Nothing,"another text")
		.InsertItem(.InsertItem(.AddItem("text"),Nothing,"some text"),Nothing,"another text")
	End With
End With
141
Can I programmatically scroll the control
With AxG2antt1
	.Columns.Add("Column")
	.Items.AddItem(0)
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(3)
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.Scroll(EXG2ANTTLib.ScrollEnum.exScrollDown)
End With
140
Do you have some function to load data from a safe array
With AxG2antt1
	.Columns.Add("Column")
	.Items.AddItem(0)
	.PutItems(.GetItems(0))
End With
139
Do you have some function to retrieve all items to a safe array
With AxG2antt1
	.Columns.Add("Column")
	.Items.AddItem(0)
	.PutItems(.GetItems(0))
	.Items.AddItem(1)
	.PutItems(.GetItems(0))
	.Items.AddItem(2)
	.PutItems(.GetItems(0))
	.Items.AddItem(3)
End With
138
How can still display the selected items when the control loses the focus
With AxG2antt1
	.HideSelection = False
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.SelectItem(.AddItem("Item 2")) = True
	End With
End With
137
How can I hide a column
With AxG2antt1
	.Columns.Add("Hidden").Visible = False
	.Columns.Add("2")
	.Columns.Add("3")
	.Columns.Add("4")
	.Columns.Add("5")
End With
136
How can I ensure that a column is visible and fits the control's client area
With AxG2antt1
	.ColumnAutoResize = False
	.Columns.Add("1").Width = 128
	.Columns.Add("2").Width = 128
	.Columns.Add("3").Width = 128
	.Columns.Add("4").Width = 128
	.Columns.Add("5").Width = 128
	.EnsureVisibleColumn("5")
End With
135
I've seen that the width of the tooltip is variable. Can I make it larger
With AxG2antt1
	.ToolTipWidth = 328
	.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
End With
134
How do I disable showing the tooltip for all control
With AxG2antt1
	.ToolTipDelay = 0
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
133
How do I let the tooltip being displayed longer
With AxG2antt1
	.ToolTipPopDelay = 10000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
132
How do I show the tooltip quicker
With AxG2antt1
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
131
How do I change the caption being displayed in the control's filter bar

With AxG2antt1
	.FilterBarCaption = "your filter caption"
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exBlanks
	End With
	.ApplyFilter()
End With
130
How do I disable expanding or collapsing an item when user double clicks it
Dim h
With AxG2antt1
	.ExpandOnDblClick = False
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 13
	.Columns.Add("Column 1")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
End With
129
How do I search case sensitive, using your incremental search feature
With AxG2antt1
	.AutoSearch = True
	.ASCIILower = ""
	With .Columns
		.Add("exStartWith").AutoSearch = EXG2ANTTLib.AutoSearchEnum.exStartWith
		.Add("exContains").AutoSearch = EXG2ANTTLib.AutoSearchEnum.exContains
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
End With
128
How do I disable the control
With AxG2antt1
	.Enabled = False
End With
127
How do I enable the incremental search feature within a column
With AxG2antt1
	.AutoSearch = True
	With .Columns
		.Add("exStartWith").AutoSearch = EXG2ANTTLib.AutoSearchEnum.exStartWith
		.Add("exContains").AutoSearch = EXG2ANTTLib.AutoSearchEnum.exContains
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
End With
126
How do I call your x-script language
With AxG2antt1
	With .ExecuteTemplate("Columns.Add(`Column`)")
		.HeaderStrikeOut = True
		.HeaderBold = True
	End With
End With
125
How do I call your x-script language
With AxG2antt1
	.Template = "Columns.Add(`Column`).HTMLCaption = `<b>C</b>olumn`"
End With
124
How do I show alternate rows in different background color

With AxG2antt1
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
End With
123
How do I enlarge the drop down filter window
With AxG2antt1
	.FilterBarDropDownHeight = -320
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterBarDropDownWidth = -320
	End With
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
End With
122
How do I filter programmatically the control
With AxG2antt1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exPattern
		.Filter = "Item*"
	End With
	.Items.AddItem("Item 1")
	.Items.AddItem("")
	.Items.AddItem("Item 2")
	.ApplyFilter()
End With
121
How do I change the font of the control's filterbar
With AxG2antt1
	.FilterBarFont.Size = 20
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exBlanks
	End With
	.ApplyFilter()
End With
120
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GetOcx().FilterBarBackColor = &H1000000
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exBlanks
	End With
	.ApplyFilter()
End With
119
How do I change the background color of the control's filterbar
With AxG2antt1
	.FilterBarBackColor = RGB(240,240,240)
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exBlanks
	End With
	.ApplyFilter()
End With
118
How do I change the foreground color of the control's filterbar

With AxG2antt1
	.FilterBarForeColor = RGB(255,0,0)
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exBlanks
	End With
	.ApplyFilter()
End With
117
How do I change the height of the control's filterbar
With AxG2antt1
	.FilterBarHeight = 32
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exBlanks
	End With
	.ApplyFilter()
End With
116
How do I change the header's foreground color
With AxG2antt1
	.ForeColorHeader = RGB(255,0,0)
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	.Items.AddItem("Item 1")
End With
115
I have a picture on the control's background, the question is how do I draw selection as semi-transparent
With AxG2antt1
	.Picture = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Columns.Add("Column")
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
End With
114
It seems that the control uses the TAB key, is there any way to avoid that
With AxG2antt1
	.UseTabKey = False
End With
113
I have FullRowSelect property on False, how do I force the user to select cells only in a specified column
With AxG2antt1
	.SelectColumnIndex = 1
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.SelectColumn = True
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	With .Items
		.CellValue(.AddItem("Item 1"),1) = "SubItem 1"
	End With
End With
112
How do I assign a database to your control, using ADO, ADOR or ADODB objects
Dim rs
With AxG2antt1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
End With
111
How do I change the visual appearance effect for the selected item, using EBN
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	.Columns.Add("Column")
	.Items.AddItem(0)
	.Items.AddItem(1)
End With
110
How do I change the colors for the selected item
With AxG2antt1
	.SelBackColor = RGB(0,0,0)
	.Columns.Add("Column")
	.Items.AddItem(0)
	.Items.AddItem(1)
End With
109
How can I hide the frame/rectangle arround the focused item
With AxG2antt1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ShowFocusRect = False
	.Columns.Add("Column")
	.Items.AddItem(0)
	.Items.AddItem(1)
	.Items.AddItem("")
	.EndUpdate()
End With
108
How can I change the control's font
With AxG2antt1
	.Font.Name = "Tahoma"
	.Columns.Add("Column")
End With
107
I can't scroll to the end of the data. What can I do
With AxG2antt1
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Column")
	With .Items
		.ItemHeight(.AddItem(0)) = 13
	End With
	.PutItems(.GetItems(0))
	With .Items
		.ItemHeight(.AddItem(1)) = 26
	End With
	.PutItems(.GetItems(0))
	With .Items
		.ItemHeight(.AddItem(2)) = 36
	End With
	.PutItems(.GetItems(0))
	With .Items
		.ItemHeight(.AddItem(3)) = 48
	End With
	.PutItems(.GetItems(0))
End With
106
How do I specify the column where the tree lines / hierarchy are shown

Dim h
With AxG2antt1
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	With .Items
		h = .AddItem("Root 1.1")
		.CellValue(h,1) = "Root 1.2"
		.CellValue(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
		.CellValue(.InsertItem(h,Nothing,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellValue(h,1) = "Root 2.2"
		.CellValue(.InsertItem(h,Nothing,"Child 1.1"),1) = "Child 1.2"
	End With
End With
105
How do I specify the indentation of the child items relative to their parents

Dim h
With AxG2antt1
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Indent = 11
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
End With
104
Is there any option to select an item using the right button of the mouse (rclick)
With AxG2antt1
	.RClickSelect = True
	.Columns.Add("Column")
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
End With
103
I have FullRowSelect property on False, how do I select a column
With AxG2antt1
	.SelectColumnIndex = 1
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
End With
102
How can I scroll columns one by one, not pixel by pixel
With AxG2antt1
	.ContinueColumnScroll = False
	.ColumnAutoResize = False
	.Columns.Add("1").Width = 128
	.Columns.Add("2").Width = 128
	.Columns.Add("3").Width = 128
	.Columns.Add("4").Width = 128
	.Columns.Add("5").Width = 128
End With
101
How can I enable multiple items selection
With AxG2antt1
	.SingleSel = False
	.Columns.Add("Column")
	.Items.AddItem(0)
	.Items.AddItem(1)
	.Items.AddItem(2)
End With